-- background: 2771 from stack: in
-- bmap block id: 16107
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=12 top=67 right=309 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Listing
----- HyperTalk script -----
on mouseUp
  goCard
end mouseUp



-- part 3 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=319 top=141 right=172 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: thePath
----- HyperTalk script -----
on mouseUp
  hide the target
  put "show " & the target
end mouseUp



-- part 4 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=11 top=244 right=260 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flasher
----- HyperTalk script -----
on mouseUp
  hide the target
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=458 top=321 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  doMenu "Quit HyperCard"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=380 top=321 right=342 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Text
----- HyperTalk script -----
on mouseUp
  set lockRecent to true
  push card
  go to stack "Product Cards"
  put "Find" && quote & quote & " in field " & quote &"display" & quote && "   --  Put text between first set of quotes. Click on ?-button for help." into msg
end mouseUp

on doExit
  answer "Error in text search"
  pop card
end doExit




-- part 8 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=282 top=321 right=342 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To Index
----- HyperTalk script -----
on mouseUp
  push card
  visual effect dissolve
  go to stack "Index"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=191 top=321 right=342 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Card
----- HyperTalk script -----
on mouseUp
  doMenu "Print Card"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=0 top=321 right=342 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To Topics
----- HyperTalk script -----
on mouseUp
  visual effect zoom close
  go to card id 15046
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=105 top=321 right=342 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Back
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=483 top=293 right=320 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect barn door close to black
  visual effect barn door open
  go card legalJunk
  wait until the mouseclick
  if the mouseloc is within the rect of cd button "go back" then
    go back
  else
    visual effect iris close
    domenu "Home"
  end if
end mouseUp


-- part 24 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=370 top=109 right=136 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locker
----- HyperTalk script -----
on mouseUp
  set the locktext of fld listing to not the locktext of fld listing
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=10 right=63 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 2304
-- line height: 24
-- part name: Heading